﻿Imports Negocio
Public Class frmPrincli



    Private Sub frmPrincli_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To miGestionOferta.Ofertas.Count - 1
            If miGestionOferta.Ofertas(i).Fecha = Today.Date Then
                Dim sino As DialogResult = MessageBox.Show("Hoy tenemos " & miGestionOferta.Ofertas(i).Cantidad & " unidad(es) de " & miGestionOferta.Ofertas(i).Producto & " Al precio de " & miGestionOferta.Ofertas(i).Precio & " Euros", "Atencion", MessageBoxButtons.YesNo)
                If sino = Windows.Forms.DialogResult.Yes Then
                    Dim frm As New frmPedido
                    frm.Oferta = miGestionOferta.Ofertas(i)
                    frm.Text = "Pedido, Cliente : " & miUsuario.Nombre
                    frm.ShowDialog()

                Else
                    Exit For
                End If


            End If
        Next
        cboTipo.Items.Add("Comida")
        cboTipo.Items.Add("Bebida")
        cboTipo.Items.Add("Complemento")

    End Sub


    Private Sub cboTipo_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cboTipo.SelectedIndexChanged
        cboProductos.Items.Clear()
        If cboTipo.SelectedItem = "Comida" Then
            For i As Integer = 0 To miGestionProductos.Productos.Count - 1
                If miGestionProductos.Productos(i).GetType = GetType(Comida) Then
                    cboProductos.Items.Add(miGestionProductos.Productos(i).Nombre)

                End If
            Next
        End If
        If cboTipo.SelectedItem = "Bebida" Then
            For i As Integer = 0 To miGestionProductos.Productos.Count - 1
                If miGestionProductos.Productos(i).GetType = GetType(Bebida) Then
                    cboProductos.Items.Add(miGestionProductos.Productos(i).Nombre)

                End If
            Next
        End If
        If cboTipo.SelectedItem = "Complemento" Then
            For i As Integer = 0 To miGestionProductos.Productos.Count - 1
                If miGestionProductos.Productos(i).GetType = GetType(Complemento) Then
                    cboProductos.Items.Add(miGestionProductos.Productos(i).Nombre)

                End If
            Next
        End If

    End Sub

    Private Sub cboProductos_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cboProductos.SelectedIndexChanged
        For i As Integer = 0 To miGestionProductos.Productos.Count - 1
            If miGestionProductos.Productos(i).Nombre = cboProductos.SelectedItem Then
                lblNombre.Text = miGestionProductos.Productos(i).Nombre
                txtDescripcion.Text = miGestionProductos.Productos(i).Descripcion
                Try
                    picFoto.ImageLocation = miGestionProductos.Productos(i).Foto
                Catch
                    MessageBox.Show("No existe foto de este producto en el directorio raiz")

                End Try
                txtPrecio.Text = miGestionProductos.Productos(i).Precio
                Exit Sub
            End If
        Next
    End Sub

    Private Sub btnPedido_Click(sender As System.Object, e As System.EventArgs) Handles btnPedido.Click
        Dim frm As New frmPedido
        frm.Text = "Pedido, Cliente " & miUsuario.Nombre
        frm.ShowDialog()

    End Sub
End Class